home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / BBS / EZY120_1.ZIP / STRUCT.ARJ / PASLIB.ARJ / TEST.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1996-03-09  |  1.2 KB  |  38 lines
  1. program test;
  2.  
  3. uses fossil;
  4.  
  5. var
  6.    Fos : PFossil;
  7.  
  8. begin
  9.    New(Fos,Init(2));
  10.    if Fos^.GetFossilActive then begin
  11.       Fos^.SetBaud(19200);
  12.       Fos^.HardwareFlowControl;
  13.       writeln;
  14.       writeln;
  15.       writeln('Fossil Information');
  16.       writeln(Fos^.GetFossilIDString);
  17.       writeln('Size Of Output Buffer ',Fos^.SizeOfOutputBuffer);
  18.       writeln('Size Of Input Buffer ',Fos^.SizeOfInputBuffer);
  19.       writeln('Free Space in Output Buffer ',Fos^.FreeSpaceInOutputBuffer);
  20.       writeln('Free Space in Input Buffer ',Fos^.FreeSpaceInInputBuffer);
  21.       writeln('Fossil Version ',Fos^.GetFossilVersion);
  22.       writeln('Fossil Revision ',Fos^.GetFossilRevision);
  23.       writeln;
  24.       if not Fos^.CarrierDetected then
  25.          writeln('No Carrier')
  26.       else begin
  27.          Fos^.PutStringCD('Hello Everyone' + cr);
  28.       end;
  29.  
  30.       while not Fos^.InputBufferEmpty do (* if any characters in input buffer then display them *)
  31.          write(Fos^.GetChar);
  32.  
  33.       Fos^.FlushOutputBuffer; (* make sure all remaining data is out of the fossil before close *)
  34.    end else
  35.       writeln('Could not initialize Fossil Driver');
  36.    dispose(Fos,Done);
  37. end.
  38.